From: Brian Fox Date: Tue, 21 Sep 1993 07:18:36 +0000 (+0000) Subject: (edebug-enter): Don't call the current function being debugged in X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~94299 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9c0415e0b53bdb7cf39753d2c7edddcffd31a361;p=emacs.git (edebug-enter): Don't call the current function being debugged in pre-command-hook or post-command-hook. --- diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index a5acfd50875..9061751082d 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -1165,6 +1165,10 @@ result of BODY." ;; Reset edebug-mode to the initial mode. (setq edebug-mode edebug-initial-mode)) (let* ((edebug-entered t) + (pre-command-hook (if (memq edebug-func pre-command-hook) + nil pre-command-hook)) + (post-command-hook (if (memq edebug-func post-command-hook) + nil post-command-hook)) (edebug-data (get edebug-func 'edebug)) ;; pull out parts of the edebug-data (edebug-func-mark (car edebug-data)) ; mark at function start